home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Demos / PEGASYS II Demo / Macros / Break < prev    next >
Encoding:
Text File  |  1988-08-04  |  1.1 KB  |  33 lines
  1. {--------------------------BREAK------------------------
  2.  
  3. {The BREAK macro draws a break line between two given points.
  4. {The macro adjusts for the overall distance between points by 
  5. {making the jog larger or smaller. The jog is drawn on class and
  6. {layer 105.
  7.  
  8. {User locates the two endpoints for the break line.
  9. PROMPT Prompt=`Pick First Point`  Var=#P1 Type=Coor 
  10. PROMPT Prompt=`Pick Second Point`  Var=#P2 Type=Coor 
  11.  
  12. {System measures the distance and angle between points entered.
  13. DS,P Silent [#P1|#P2|;]
  14. #DS = %DS.D          {Total distance between points
  15. #AN = %DS.A          {Angle created by the two points
  16. #HD = %DS.D / 2     {Total distance divided by 2
  17. #LG = .5               {Starting value for the jog if overall distance is
  18.                                {less than 10.
  19.  
  20. {System determines which size jog to use in comparison to the
  21. {overall distance between points.
  22. IF (#DS > 10), #LG=.750
  23. IF (#DS > 15), #LG=1.00
  24. IF (#DS > 20), #LG=1.25
  25. IF (#DS > 30), #LG=1.50
  26.  
  27. {System draws in line with jog.
  28. LI Cl=105 La=105 Pe=0  [#P1|P,#HD-(#LG/2),#AN|P,#LG,#AN+75]\
  29.                       [P,#LG*2,#AN-75|P,#LG,#AN+75|#P2|;]
  30.  
  31.  
  32. RETURN
  33.